# TODO: Add comment
# 
# Author: ryan
###############################################################################
#library(qcc);
#windows();
graphics.off();

setwd("C:/carmd-cvs02/Koala");

png(filename="./DynamicWebPage/BoxPlotChart.png",width = 450, height = 300);
# read source data
datasource<-read.table("./DataSource/boxplotdatafile.txt",header=TRUE);
attach(datasource);

#par(las=3,ps=8);
par(bg="lightsteelblue");
boxplot(value ~ group, data=datasource,col=rainbow(length(levels(group))));
title(main="Test Time", font.main=4, font.lab=1);


#defect<-Frequency;
#names(defect)<-ErrorCode;
#pareto.chart(defect,col=rainbow(length(defect)));

dev.off();